home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / TraySetState.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  576 b   |  34 lines
  1. #Include <Constants.au3>
  2. #NoTrayIcon
  3.  
  4. Opt("TrayMenuMode",1)    ; Default tray menu items (Script Paused/Exit) will not be shown. 
  5.  
  6. $exititem        = TrayCreateItem("Exit")
  7.  
  8. TraySetIcon("warning")
  9. TraySetToolTip("SOS")
  10.  
  11. TraySetState()    ; Show the tray icon
  12.  
  13. $toggle = 0
  14.  
  15. While 1
  16.     $msg = TrayGetMsg()
  17.     Select
  18.         Case $msg = 0
  19.             Sleep(1000)
  20.             If $toggle = 0 Then
  21.                 TraySetState()    ; Show the tray icon
  22.                 $toggle = 1
  23.             Else
  24.                 TraySetState(2)    ; Hide the tray icon
  25.                 $toggle = 0
  26.             EndIF
  27.         Case $msg = $exititem
  28.             ExitLoop
  29.     EndSelect
  30.         
  31. WEnd
  32.  
  33. Exit
  34.